home *** CD-ROM | disk | FTP | other *** search
/ Family Album 2.1 / Family Album v2.1.iso / data1.cab / Common / updateScroll.tbk (.txt) < prev    next >
Encoding:
Asymetrix ToolBook File  |  2002-11-16  |  29.6 KB  |  457 lines
  1. !This program cannot be run in DOS mode.
  2. .rdata
  3. @.rsrc
  4. @.reloc
  5. Asymetrix ToolBook Application
  6. MINSTB32.dll
  7. *ClassTbl*
  8. *ClassEntry*
  9. *PTABLE*
  10. *WINDOWSEG*
  11. *ICONRESTAB*
  12. *ICONRESSEG*
  13. *ICONRES*
  14. Background
  15. *OBJTABLE*
  16. *IDTABLE*
  17. *NAMETAB*
  18. Rectangle
  19. Ellipse
  20. RoundedRectangle
  21. Polygon
  22. IrregularPolygon
  23. AngledLine
  24. Curve
  25. PaintObject
  26. Picture
  27. Group
  28. Stage
  29. Button
  30. Viewer
  31. ComboBox
  32. Field
  33. RecordField
  34. Hotword
  35. *RHOTWORD*
  36. *TbxBase*
  37. System
  38. <BookPath>
  39. :HDMEDIAPATH
  40. info_LastSavedBy
  41. 6/8/01 8:30:51 PM
  42. info_LastSaved
  43. 010609080146506534181144530
  44. ASYM_TpID
  45. Update scroll of book...
  46. &File
  47. &Open...    Ctrl+O
  48. &Save    Ctrl+S
  49. Save &As...
  50. saveas
  51. Print Set&up...
  52. printsetup
  53. &Print Pages...    Ctrl+P
  54. printpages
  55. Prin&t Report...
  56. printreport
  57. Send &Mail...
  58. sendmail
  59. &Run...
  60. E&xit    Alt+F4
  61. &Edit
  62. &Undo    Ctrl+Z
  63. Cu&t    Ctrl+X
  64. &Copy    Ctrl+C
  65. &Paste    Ctrl+V
  66. paste
  67. C&lear    Del
  68. clear
  69. Select &All    Shift+F9
  70. selectall
  71. Select Pa&ge    Shift+F12
  72. selectpage
  73. &Find...    Ctrl+F
  74. &View
  75. &Author    F3
  76. author
  77. &Status Bar    F12
  78. statusbar
  79. Si&ze to Page    F11
  80. sizetopage
  81. Show &Hotwords    F9
  82. showhotwords
  83. &Next Page    Alt+Right
  84. &Previous Page    Alt+Left
  85. previous
  86. &First Page    Alt+Up
  87. first
  88. &Last Page    Alt+Down
  89. &Back    Shift+F2
  90. &History...    Ctrl+F2
  91. history
  92. &Text
  93. &Character...    F6
  94. character
  95. &Paragraph...    F7
  96. paragraph
  97. &Regular    Ctrl+Space
  98. regular
  99. &Bold    Ctrl+B
  100. &Italic    Ctrl+I
  101. italic
  102. &Underline    Ctrl+U
  103. underline
  104. Stri&keout    Ctrl+K
  105. strikeout
  106. Superscrip&t/Subscript
  107. superscriptSubscript
  108. &Normal Script
  109. normalscript
  110. Su&bscript    Ctrl+L
  111. subscript
  112. Su&perscript    Ctrl+Shift+L
  113. superscript
  114. &Help
  115. &Contents    F1
  116. contents
  117. keyEnd
  118. keyNext
  119. default
  120. buttonclick
  121. 4bookpath,sizemainwin,lobject
  122.  = LEAD "photo" 
  123.     filterlist = "Thumbnail Book (*.tbk),*.
  124. OpenFileDlgLFN("Choose a 
  125.         newbook = 
  126. convertBook 
  127. = default
  128. isobject(
  129.         scriptText = 
  130. "scriptfield"
  131.         scriptext2 = 
  132. "scriptfield2"
  133.         scriptext3 = 
  134. "scriptfield3"
  135.         backg = 
  136. "intergerUp" 
  137. scriptText2
  138. "intergerDown" 
  139. scriptText3
  140. .-+    +L
  141. convertBook
  142. bookpath
  143. Thumbnail Book (*.tbk),*.tbk
  144. lobject
  145. newbook
  146. filterlist
  147. photo
  148. Choose a Book to open.
  149. default
  150. dOpenFileDlgLFN
  151. buttonclick
  152. intergerUp
  153. scroll
  154. backg
  155. scriptext2
  156. intergerDown
  157. scriptText
  158. scriptfield2
  159. scriptText3
  160. scriptfield
  161. backg
  162. scriptext3
  163. scriptfield3
  164. scriptText2
  165. convertBook
  166. po`ho_g``ho`ho_g``ho`oo`oo`oo`ho_g`_g``oo`ho`hoohoohooho`ho`go_go`go`ho`ho`go_go````go`ho`oo`oo_go_h``ho`oo`pp`wpoxp`xp`po_po`wo`wp`xp_po_woo
  167. ppxpowop
  168. poxpoxpoxpoxpoxppppohopoopop
  169. hpphopgop``p``
  170. `xo_poPxoPxo_wp_xp_xp_x
  171. _wp_po_po`xp`wo_p`_o`_o``p``o``o``po`po_po`po`oo`oo`wo`oo_o`_h`_o``p``p``o`_h__o`_g_oo`pwppwpowpopoooo`h`_`___________X_PXP_XP____XP_XP_XP_XP_WP_XP`X_`X_`W_`X_`X__WP_WP_X__X__X__W__W__X_`X__X__X__X__X__X__X__X__X__W__W__W__W_PG@PG@PG@PG@PG@PG@PG@PG@PG@PG@PHO_HOPHPPHOPHP_OP_OP_OP_OP_OP_HP_OP_OP_OP_OP_HPPHP_HP_HP_OP_HP_HP_HP_O__O__OP_HP_HP_HP_HP_OP_OP_OP_OP_OPPOPPOPPOP_OP_OP_OP_OP_OP_HP_OP_O__OP_O__O__O__HP_OP_O__H__HP_HPPHP_HPPHPPHPPHP_O_PHPPHPPHP_O__O__O__O__O__OP_O__O__O_PHPPHPPHP_O__O__O__O__P_PO_PHPPH__O_PO_PO_PO_PO_PO_PO_PO_PO_PO_PO__P_PO_PO_PO_PO_PO__O__O__O__O__H__H__H__
  172. System
  173. <BookPath>
  174. :HDMEDIAPATH
  175. info_LastSavedBy
  176. 0:09 PM
  177. info_LastSaved
  178. 6/9/01 8:03:36 AM
  179. 6/9/01 8:05:29 AM
  180. Update scroll of book...
  181. ASYM_BeenHere
  182. .-+    +L
  183. convertBook
  184. bookpath
  185. Thumbnail Book (*.tbk),*.tbk
  186. newbook
  187. filterlist
  188. Choose a Book to open.
  189. default
  190. dOpenFileDlgLFN
  191. buttonclick
  192. integerDown
  193. scroll
  194. scriptfield2
  195. scriptfield
  196. backg
  197. scriptfield3
  198. integerUp
  199. convertBook
  200. buttonclick
  201. 4bookpath
  202.     filterlist = "Thumbnail Book (*.tbk),*.
  203. OpenFileDlgLFN("Choose a 
  204.         newbook = 
  205. convertBook 
  206. = default
  207. isobject(
  208. --        scriptText = 
  209. "scriptfield"
  210. --        scriptext2 = 
  211. "scriptfield2"
  212. --        scriptext3 = 
  213. "scriptfield3"
  214.         backg = 
  215. B"integerUp" 
  216. } --scriptText2
  217. B"integerDown" 
  218.  --scriptText3
  219. to handle spinDown
  220.     xscroll = scroll of field "scroll" of this background
  221.     maxs = maxscroll of field "scroll" of this background
  222.     maxp = pagecount of this background 
  223.     if xscroll < maxs*maxp
  224.         newscroll = xscroll + maxs
  225.         if newscroll > maxs*maxp
  226.             newscroll = maxs*maxp
  227.         end
  228.         scroll of field "scroll" of this background = newscroll
  229.         send textscrolled newscroll to field "scroll" of this background
  230. to handle buttonDown
  231.     send spinDown
  232. to handle buttonDoubleClick
  233.     send spinDown
  234. to handle buttonStillDown
  235.     stime = mytime of self
  236.     newTime = timeGetTime()
  237.     if stime = null or newtime-stime > 5
  238.         mytime of self = newtime
  239.         send spinDown
  240. notifybefore enterbackground
  241.     mytime of self = 0
  242. roll of self = 0
  243. to get maxscroll2
  244.     step i from 1 to 200
  245.         txt = null
  246.         step j from 1 to i
  247.             if txt <> null
  248.                 txt = txt & CRLF
  249.             end
  250.             txt = txt & j
  251.         end
  252.         text of self = txt
  253.         if textoverflow of self > 0
  254.             return i-1
  255.         end
  256.     return 0
  257. to handle spinUp
  258.     xscroll = scroll of field "scroll" of this background
  259.     maxs = maxscroll of field "scroll" of this background --textlinecount(text of field "scroll" of this background)
  260.     if xscroll > 1
  261.         newscroll = xscroll - maxs
  262.         if newscroll < 0
  263.             newscroll = 0
  264.         end
  265.         scroll of field "scroll" of this background = newscroll
  266.         send textscrolled newscroll to field "scroll" of this background
  267. to handle buttonDown
  268.     send spinUp
  269. to handle buttonDoubleClick
  270.     send spinUp
  271. to handle buttonStillDown
  272.     stime = mytime of self
  273.     newTime = timeGetTime()
  274.     if stime = null or newtime-stime > 5
  275.         mytime of self = newtime
  276.         send spinUp
  277. notifybefore enterbackground
  278.     mytime of self = 0
  279. to handle spinDown
  280.     xscroll = scroll of field "scroll" of this background
  281.     maxs = maxscroll of field "scroll" of this background --textlinecount(text of field "scroll" of this background)
  282.     maxp = pagecount of this background 
  283.     if xscroll < maxs*maxp
  284.         newscroll = xscroll + maxs
  285.         if newscroll > maxs*maxp
  286.             newscroll = maxs*maxp
  287.         end
  288.         scroll of field "scroll" of this background = newscroll
  289.         send textscrolled newscroll to field "scroll" of this background
  290. to handle buttonDown
  291.     send spinDown
  292. to handle buttonDoubleClick
  293.     send spinDown
  294. to handle buttonStillDown
  295.     stime = mytime of self
  296.     newTime = timeGetTime()
  297.     if stime = null or newtime-stime > 5
  298.         mytime of self = newtime
  299.         send spinDown
  300. notifybefore enterbackground
  301.     mytime of self = 0
  302. scriptfield
  303. scriptfield2
  304. scriptfield3
  305. to handle spinUp
  306.     xscroll = scroll of field "scroll" of this background
  307.     maxs = maxscroll of field "scroll" of this background
  308.     if xscroll > 1
  309.         newscroll = xscroll - maxs
  310.         if newscroll < 0
  311.             newscroll = 0
  312.         end
  313.         scroll of field "scroll" of this background = newscroll
  314.         send textscrolled newscroll to field "scroll" of this background
  315. to handle buttonDown
  316.     send spinUp
  317. to handle buttonDoubleClick
  318.     send spinUp
  319. to handle buttonStillDown
  320.     stime = mytime of self
  321.     newTime = timeGetTime()
  322.     if stime = null or newtime-stime > 5
  323.         mytime of self = newtime
  324.         send spinUp
  325. notifybefore enterbackground
  326.     mytime of self = 0
  327. to handle textscrolled ppos
  328.     system OldScrollPos
  329.     maxscroll = maxscroll of self
  330.     newpos = round(ppos/maxscroll)
  331.     newpage = newpos + 1
  332.     if pagecount of this background >= newpage and newpage > 0
  333.         thenewpos = (newpos*maxscroll)
  334.         scroll of self = thenewpos 
  335.         syslockscreen = true
  336.         go to page newpage  of this background
  337.         focus = null
  338.         syslockscreen = false
  339. notifybefore enterbackground
  340.     system OldScrollPos
  341.     pgs = pagecount of this background
  342.     maxscroll = maxscroll2()   --visibleLineCount of self
  343.     maxscroll of self = maxscroll
  344.     OldScrollPos = 1
  345.     txt = null
  346.     step i from 1 to ((pgs-1)*maxscroll)+1
  347.         if txt <> null
  348.             txt = txt & CRLF
  349.         end
  350.         txt = txt & i
  351.     linkdll mmsystem
  352.         dword timeGetTime()
  353.     text of self = txt
  354.     scroll of self = i
  355.     scroll of self = 0
  356. to get maxscroll2
  357.     step i from 1 to 200
  358.         txt = null
  359.         step j from 1 to i
  360.             if txt <> null
  361.                 txt = txt & CRLF
  362.             end
  363.             txt = txt & j
  364.         end
  365.         text of self = txt
  366.         if textoverflow of self > 0
  367.             return i-1
  368.         end
  369.     return 0
  370. .-+    +L
  371. convertBook
  372. bookpath
  373. Thumbnail Book (*.tbk),*.tbk
  374. openFileDlgLFN
  375. newbook
  376. filterlist
  377. TBDLG.DLL
  378. Choose a Book to open.
  379. default
  380. dOpenFileDlgLFN
  381. buttonclick
  382. integerDown
  383. scroll
  384. scriptfield2
  385. scriptfield
  386. backg
  387. scriptfield3
  388. integerUp
  389. convertBook
  390. buttonclick
  391. 4bookpath
  392. X"TBDLG.DLL"
  393.         STRING openFileDlgLFN(
  394. ,INT)
  395.     filterlist = "Thumbnail Book (*.tbk),*.
  396. OpenFileDlgLFN("Choose a 
  397.         newbook = 
  398. convertBook 
  399. = default
  400. isobject(
  401. --        scriptText = 
  402. "scriptfield"
  403. --        scriptext2 = 
  404. "scriptfield2"
  405. --        scriptext3 = 
  406. "scriptfield3"
  407.         backg = 
  408. B"integerUp" 
  409. } --scriptText2
  410. B"integerDown" 
  411.  --scriptText3
  412. newscroll = xscroll - maxs
  413.         if newscroll < 0
  414.             newscroll = 0
  415.         end
  416.         scroll of field "scroll" of this background = newscroll
  417.         send textscrolled newscroll to field "scroll" of this background
  418. to handle buttonDown
  419.     send spinUp
  420. to handle buttonDoubleClick
  421.     send spinUp
  422. to handle buttonStillDown
  423.     stime = mytime of self
  424.     newTime = timeGetTime()
  425.     if stime = null or newtime-stime > 5
  426.         mytime of self = newtime
  427.         send spinUp
  428. notifybefore enterbackground
  429.     mytime of self = 0
  430. to handle spinDown
  431.     xscroll = scroll of field "scroll" of this background
  432.     maxs = maxscroll of field "scroll" of this background --textlinecount(text of field "scroll" of this background)
  433.     maxp = pagecount of this background 
  434.     if xscroll < maxs*maxp
  435.         newscroll = xscroll + maxs
  436.         if newscroll > maxs*maxp
  437.             newscroll = maxs*maxp
  438.         end
  439.         scroll of field "scroll" of this background = newscroll
  440.         send textscrolled newscroll to field "scroll" of this background
  441. to handle buttonDown
  442.     send spinDown
  443. to handle buttonDoubleClick
  444.     send spinDown
  445. to handle buttonStillDown
  446.     stime = mytime of self
  447.     newTime = timeGetTime()
  448.     if stime = null or newtime-stime > 5
  449.         mytime of self = newtime
  450.         send spinDown
  451. notifybefore enterbackground
  452.     mytime of self = 0
  453. scriptfield
  454. scriptfield2
  455. scriptfield3
  456. YM_BeenHere
  457.